Shareware Super Platinum 8

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / EDITORS / OVER4A.ZIP;1 / OVERLAZ.SMM < prev next >

Wrap

INI File | 1994-01-01 | 14.7 KB | 1,301 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] QMS-PS 810 [port] LPT1: [lang] 1 [desc] Over_LAZ v 4 menu macro for AmiPro 3.x 755120689 8 714335407 287 4 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 4 43 0 0 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 88 0 41 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 132 0 16 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 167 0 0 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] <:#284,9360>'========================================== <:#284,9360>' Over_LAZ v 4 menu macro for AmiPro v3 <:#284,9360>' <:#284,9360>' </i> Copyright 1993, all rights reserved <:#284,9360>' <:#284,9360>' Herne Data Systems Ltd. <:#284,9360>' PO Box 250, Tiverton, ON CANADA <:#284,9360>' <:#284,9360>'============================================ <:#284,9360> <:#284,9360>Function Main() <:#284,9360>api=getprofilestring$("OVL","API") <:#284,9360>if api<<<;>"yes" ' install for first time <:#568,9360>Message("Over_LAZ has not been installed. Press OK to start installation.","Over_LAZ - Install") <:#284,9360> res=call install() <:#284,9360> if res<<<;>1 <:#284,9360> beep() <:#284,9360> goto endit <:#284,9360> endif <:#284,9360>endif <:#284,9360> <:#284,9360>rerun: <:#284,9360>Ovlpath=GetProfileString$("OVL","OvlPath") <:#284,9360>Writeprofilestring("OVL","App","AP") <:#284,9360>WriteProfileString("OVL","ID","0") <:#284,9360>statusbarmsg("Select overlay to insert...") <:#284,9360>fe=Exec("{Ovlpath}OVLWIN.EXE","*",1) <:#284,9360>if fe<<32 <:#568,9360> yn=Decide("Cannot find OVLWIN.EXE. Do you want to run Over_LAZ install again?","Over_LAZ - ERROR") <:#284,9360> if yn=1 <:#284,9360> res=call install() <:#284,9360> if res<<<;>1 <:#284,9360> beep() <:#284,9360> goto endit <:#284,9360> endif <:#284,9360> goto rerun <:#284,9360> endif <:#284,9360> if yn=0 <:#284,9360> beep() <:#284,9360> goto endit <:#284,9360> endif <:#284,9360>endif <:#284,9360> <:#284,9360>while GetProfileString$("OVL","ID")="0" <:#284,9360>wend <:#284,9360> <:#284,9360>id=GetProfileString$("OVL","ID") <:#284,9360> <:#284,9360>if id<<<;>"-1" and id<<<;>"0" <:#284,9360> fieldadd("PrintEscape""<[>27]&f{id}y3X"""<:f,,>) <:#284,9360>endif <:#284,9360>endit: <:#284,9360>statusbarmsg("") <:#284,9360>End Function <:#284,9360> <:#284,9360>'========== install menu macro <:#284,9360>function install() <:#284,9360> <:#284,9360>Ovlpath=GetProfileString$("OVL","OvlPath") <:#284,9360>Ovldir=GetProfileString$("OVL","Ovldir") <:#284,9360> <:#284,9360>reinstall: <:#284,9360>filledit(8001,Ovlpath) <:#284,9360>filledit(8003,Ovldir) <:#284,9360>statusbarmsg("Select install options...") <:#284,9360>ret=Dialogbox(".","INSTALL") <:#284,9360> <:#284,9360>if ret<<<;>1 <:#284,9360> return(ret) <:#284,9360> goto endint <:#284,9360>endif <:#284,9360> Ovlpath=Getdialogfield$(8001) <:#284,9360> Ovldir=Getdialogfield$(8003) <:#284,9360>if Ovlpath="" or Ovldir="" <:#284,9360> Beep() <:#284,9360> goto reinstall <:#284,9360>endif <:#284,9360> <:#284,9360>Ovlpath=Ucase$(Ovlpath) <:#284,9360>Ovldir=Ucase$(Ovldir) <:#284,9360>if right$(Ovlpath,1)<<<;>"\" <:#284,9360> Ovlpath="{Ovlpath}\" <:#284,9360>endif <:#284,9360>if right$(Ovldir,1)<<<;>"\" <:#284,9360> Ovldir="{Ovldir}\" <:#284,9360>endif <:#284,9360>Writeprofilestring("OVL","OVLPath",Ovlpath) <:#284,9360>Writeprofilestring("OVL","OVLDir",Ovldir) <:#284,9360>men=getdialogfield$(20) <:#284,9360>too=getdialogfield$(21) <:#284,9360>ky=getdialogfield$(22) <:#284,9360>macnam=getrunningmacrofile$() <:#284,9360>if men=1 addmenuitem(1,"Too&ls","OverLA&Z...","{macnam}!main()","Insert Over_LAZ into document") <:#284,9360>endif <:#284,9360> <:#284,9360>if too=1 <:#284,9360> yn=Decide("Edit tool bar to insert OVERLAZ.BMP icon?","Over_LAZ - Install") <:#284,9360> if yn=1 <:#284,9360> statusbarmsg("Select Over_LAZ icon and move to desired location on tool bar...") <:#284,9360> Iconcustomize() <:#284,9360> endif <:#284,9360>endif <:#284,9360> <:#284,9360>if ky=1 <:#284,9360> statusbarmsg("Select desired shortcut key...") <:#284,9360> for i=1 to 12 <:#284,9360> Filledit(9500,"F{i}") <:#284,9360> next <:#284,9360> ret=Dialogbox(".","KEYS") <:#284,9360> if ret<<<;>1 <:#284,9360> goto nokey <:#284,9360> endif <:#284,9360> stat="" <:#284,9360> shift=getdialogfield$(20) <:#284,9360> control=getdialogfield$(21) <:#284,9360> alt=getdialogfield$(22) <:#284,9360> skey=getdialogfield$(9500) <:#284,9360> <:#284,9360> if shift=1 <:#284,9360> stat=strcat$(stat,"S") <:#284,9360> endif <:#284,9360> if control=1 <:#284,9360> stat=strcat$(stat,"C") <:#284,9360> endif <:#284,9360> if alt=1 <:#284,9360> stat=strcat$(stat,"A") <:#284,9360> endif ret=changeshortcutkey("{macnam}",skey,stat) <:#284,9360>endif <:#284,9360>nokey: <:#284,9360>statusbarmsg("") <:#284,9360>writeprofilestring("OVL","API","yes") <:#284,9360>Message("Installation complete","Over_LAZ - Install") <:#284,9360>return(1) <:#284,9360>endint: <:#284,9360>end function <:#284,9360> <:#284,9360> <:#284,9360>DIALOG install <:#568,9360>-2134900736 10 42 24 185 140 "" "" "Over_LAZ v4 - Install for AmiPro" <:#568,9360>10 14 99 10 1000 1342177280 "static" "Directory for OVLWIN.EXE:" 0 <:#284,9360>13 25 156 12 8001 1350631552 "edit" "" 0 <:#568,9360>10 50 115 10 1001 1342177280 "static" "Directory for *.TAG and *.HP files:" 0 <:#284,9360>13 62 156 12 8003 1350631552 "edit" "" 0 <:#284,9360>32 120 40 14 1 1342373889 "button" "&OK" 0 <:#284,9360>112 120 40 14 2 1342373888 "button" "&Cancel" 0 <:#284,9360>15 82 80 12 20 1342242819 "button" "Add to 'Tools' menu" 0 <:#284,9360>108 82 72 12 21 1342242819 "button" "Add to tool bar" 0 <:#284,9360>15 96 87 12 22 1342242819 "button" "Assign to key" 0 <:#284,9360>4 110 177 1 1002 1342177284 "static" "" 0 <:#284,9360>END DIALOG <:#284,9360> <:#284,9360>DIALOG keys <:#568,9360>-2134900736 9 43 24 161 109 "" "" "Over_LAZ v4 - Assign Shortcut Key" <:#284,9360>20 86 40 14 1 1342373889 "button" "&OK" 0 <:#284,9360>101 86 40 14 2 1342373888 "button" "&Cancel" 0 <:#284,9360>25 18 40 12 20 1342242819 "button" "Shift" 0 <:#284,9360>25 32 41 12 21 1342242819 "button" "Control" 0 <:#284,9360>25 46 44 12 22 1342242819 "button" "Alt" 0 <:#284,9360>11 5 66 59 23 1342308359 "button" " Key type " 0 <:#284,9360>110 20 40 56 9500 1344274443 "combobox" "" 0 <:#284,9360>4 73 153 1 1002 1342177284 "static" "text" 0 <:#284,9360>108 7 50 10 1000 1342177280 "static" "Function key:" 0 <:#284,9360>END DIALOG <:#284,9360> <:#284,9360> > [Embedded] 00011253 > [macsum] 4 Main 0 0 7 10 install 884 0 15 56 install 2500 0 -1 139 keys 3136 0 -1 153 [macse] 14 Main 0 286 "OVL" "API" 13 8 1 6 1 7 "yes" 18 1 11 00000234 0 3 "Over_LAZ has not been installed. Press OK to start installation." "Over_LAZ - Install" 16 install 13 8 2 6 2 5 1 18 1 11 00000234 0 801 10 00000862 0 286 "OVL" "OvlPath" 13 8 3 0 287 "OVL" "App" "AP" 0 287 "OVL" "ID" "0" 0 789 "Select overlay to insert..." 0 22 "{3}OVLWIN.EXE" "*" 1 13 8 4 6 4 5 32 18 5 11 00000680 0 2 "Cannot find OVLWIN.EXE. Do you want to run Over_LAZ install again?" "Over_LAZ - ERROR" 13 8 5 6 5 5 1 18 0 11 00000631 16 install 13 8 2 6 2 5 1 18 1 11 00000618 0 801 10 00000862 10 00000234 6 5 5 0 18 0 11 00000680 0 801 10 00000862 0 286 "OVL" "ID" 13 7 "0" 18 0 11 00000741 10 00000680 0 286 "OVL" "ID" 13 8 6 6 6 7 "-1" 18 1 6 6 7 "0" 18 1 1 1 11 00000862 2 572 1 "PrintEscape""[27]&f{6}y3X""" 0 789 "" 6 0 15 9 14 install 0 286 "OVL" "OvlPath" 13 8 1 0 286 "OVL" "Ovldir" 13 8 2 0 31 8001 "{1}" 0 31 8003 "{2}" 0 789 "Select install options..." 0 26 "." "INSTALL" 13 8 3 6 3 5 1 18 1 11 00000227 6 3 15 9 10 00001604 0 27 8001 13 8 1 0 27 8003 13 8 2 6 1 7 "" 18 0 6 2 7 "" 18 0 1 2 11 00000339 0 801 10 00000075 0 18 "{1}" 13 8 1 0 18 "{2}" 13 8 2 0 807 "{1}" 1 13 7 "\" 18 1 11 00000441 7 "{1}\" 8 1 0 807 "{2}" 1 13 7 "\" 18 1 11 00000501 7 "{2}\" 8 2 0 287 "OVL" "OVLPath" "{1}" 0 287 "OVL" "OVLDir" "{2}" 0 27 20 13 8 4 0 27 21 13 8 5 0 27 22 13 8 6 0 802 13 8 7 6 4 5 1 18 0 11 00000734 0 516 1 "Too&ls" "OverLA&Z..." "{7}!main()" "Insert Over_LAZ into document" 6 5 5 1 18 0 11 00000954 0 2 "Edit tool bar to insert OVERLAZ.BMP icon?" "Over_LAZ - Install" 13 8 8 6 8 5 1 18 0 11 00000954 0 789 "Select Over_LAZ icon and move to desired location on tool bar..." 2 209 0 6 6 5 1 18 0 11 00001507 0 789 "Select desired shortcut key..." 5 1 8 9 5 12 6 9 18 2 12 00001109 10 00001140 5 1 6 9 3 0 8 9 10 00001033 0 31 9500 "F{9}" 10 00001076 0 26 "." "KEYS" 13 8 3 6 3 5 1 18 1 11 00001208 10 00001507 7 "" 8 10 0 27 20 13 8 11 0 27 21 13 8 12 0 27 22 13 8 13 0 27 9500 13 8 14 6 11 5 1 18 0 11 00001355 0 16 "{10}" "S" 13 8 10 6 12 5 1 18 0 11 00001412 0 16 "{10}" "C" 13 8 10 6 13 5 1 18 0 11 00001469 0 16 "{10}" "A" 13 8 10 2 490 1 "{7}" "{14}" "{10}" 13 8 3 0 789 "" 0 287 "OVL" "API" "yes" 0 3 "Installation complete" "Over_LAZ - Install" 5 1 15 9 6 0 15 9 DIALOG install -2134900736 10 42 24 185 140 "" "" "Over_LAZ v4 - Install for AmiPro" 10 14 99 10 1000 1342177280 "static" "Directory for OVLWIN.EXE:" 0 13 25 156 12 8001 1350631552 "edit" "" 0 10 50 115 10 1001 1342177280 "static" "Directory for *.TAG and *.HP files:" 0 13 62 156 12 8003 1350631552 "edit" "" 0 32 120 40 14 1 1342373889 "button" "&OK" 0 112 120 40 14 2 1342373888 "button" "&Cancel" 0 15 82 80 12 20 1342242819 "button" "Add to 'Tools' menu" 0 108 82 72 12 21 1342242819 "button" "Add to tool bar" 0 15 96 87 12 22 1342242819 "button" "Assign to key" 0 4 110 177 1 1002 1342177284 "static" "" 0 DIALOG keys -2134900736 9 43 24 161 109 "" "" "Over_LAZ v4 - Assign Shortcut Key" 20 86 40 14 1 1342373889 "button" "&OK" 0 101 86 40 14 2 1342373888 "button" "&Cancel" 0 25 18 40 12 20 1342242819 "button" "Shift" 0 25 32 41 12 21 1342242819 "button" "Control" 0 25 46 44 12 22 1342242819 "button" "Alt" 0 11 5 66 59 23 1342308359 "button" " Key type " 0 110 20 40 56 9500 1344274443 "combobox" "" 0 4 73 153 1 1002 1342177284 "static" "text" 0 108 7 50 10 1000 1342177280 "static" "Function key:" 0 00011278